﻿Public Class NivelLN
    Private objNivelAD As NivelAD

    Public Sub New()
        objNivelAD = New NivelAD
    End Sub
    Public Function fBuscarNiveles() As DataSet
        'Buscara en la BD los niveles existentes
        Dim dsListaNiveles As New DataSet

        dsListaNiveles = objNivelAD.fBuscarNiveles()
        'If dsEstadoPromocion Is Nothing Then
        '    Return Nothing
        'End If
        Return dsListaNiveles
    End Function
    Public Function fBuscarNiveles1(ByVal NivelNO As String) As DataSet
        'Buscara en la BD los niveles existentes
        Dim dsListaNiveles As New DataSet

        dsListaNiveles = objNivelAD.fBuscarNiveles1(NivelNO)
        'If dsEstadoPromocion Is Nothing Then
        '    Return Nothing
        'End If
        Return dsListaNiveles
    End Function
End Class
